' Uppercase
' This program demonstrates the UCASE$ function.

writer$ = "Sir Arthur Conan Doyle"
address$ = "1326 Serpentine Avenue"
borough$ = UCASE$("St. John's Wood")

CLS

PRINT UCASE$(writer$)
PRINT UCASE$(address$) + ", " + borough$
PRINT
PRINT writer$
PRINT address$ + ", " + borough$

PRINT
INPUT "Press Return to continue", dummy$
